home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 236
/
236.d81
/
b.puzzle boot 87
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
41 lines
5 dv=peek(186):ifdv<8thendv=8
10 poke53281,.:poke53280,12:print"[147]"
20 gosub260
30 sys57812"psb 87",dv,0:poke780,0:poke781,0:poke782,48:sys65493
40 poke53272,29
50 b$=" [221][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][221]"
60 c$=" "
70 print" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
80 fori=1to7:printb$:next
90 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
100 poke214,8:print
120 print:printtab(9)"[212]he[208][213][218][218][204][197][208][193][199][197]"
140 print:printtab(9)"[154][193][159][204][207][193][196][211][212][193][210][154][197][216][195][204][213][211][201][214][197]"
150 print
170 sys57812"ss 87",dv,0:poke780,0:poke781,16:poke782,205:sys65493
172 sys57812"fh 87",dv,0:poke780,0:poke781,106:poke782,129:sys65493
173 poke33338,dv
174 sys33136,28000,"music 87"
176 sys57812"sid 87",dv,0:poke780,0:poke781,0:poke782,192:sys65493
178 sys33133,28000,57344,5120
180 sys33130,57344,57344+5119,.
182 sys33130,49152,51126,.
200 print"[144]load"chr$(34)"puzzle page 87"chr$(34)","dv
210 print"run"
220 poke43,1:poke44,64:poke16384,0
230 poke631,13:poke632,13:poke633,13:poke198,3
240 new
250 :
260 poke214,15:print
270 print" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
280 print" [152] "
290 print" [208] [213] [218] [218] [204] [197] [208] [193] [199] [197] 8 7 "
300 print" [194]y [194]arbara [200]. [211]chulak (c) 1991 "
310 print" [208]ublished on [204][207][193][196][211][212][193][210] #87 "
320 print" [211]ubscriptions 1-800-831-2694 "
330 print" [193]ll [210]ights [210]eserved "
340 print" "
350 print" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
360 return
10000 open15,8,15,"s0:puzzle boot 87":close15:save"0:puzzle boot 87",8:end